home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / PWRBALL2 / PWRBALL2.ZIP / PWRBALL2.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-09-03  |  5KB  |  266 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     Byte     BYTE001
  26.     Byte     BYTE002
  27.     Byte     BYTE003
  28.     Byte     BYTE004
  29.     Byte     BYTE005
  30.     Byte     BYTE006
  31.     Byte     BYTE007
  32.     Byte     BYTE008
  33.     Byte     BYTE009
  34.     Word     WORD001
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     FOpen 2, PPEPath() + PPEName() + ".CFG", 0, 0
  39.     FGet 2, STRING002
  40.     FGet 2, STRING003
  41.     BYTE001 = 1 + Random(44)
  42.     :LABEL001
  43.     BYTE002 = 1 + Random(44)
  44.     If (BYTE001 == BYTE002) Then
  45.         Gosub LABEL001
  46.     Endif
  47.     :LABEL002
  48.     BYTE003 = 1 + Random(44)
  49.     If (BYTE001 == BYTE003) Then
  50.         Gosub LABEL002
  51.     ElseIf (BYTE002 == BYTE003) Then
  52.         Gosub LABEL002
  53.     Endif
  54.     :LABEL003
  55.     BYTE004 = 1 + Random(44)
  56.     If (BYTE001 == BYTE004) Then
  57.         Gosub LABEL003
  58.     ElseIf (BYTE002 == BYTE004) Then
  59.         Gosub LABEL003
  60.     ElseIf (BYTE003 == BYTE004) Then
  61.         Gosub LABEL003
  62.     Endif
  63.     :LABEL004
  64.     BYTE005 = 1 + Random(44)
  65.     If (BYTE001 == BYTE005) Then
  66.         Gosub LABEL004
  67.     ElseIf (BYTE002 == BYTE005) Then
  68.         Gosub LABEL004
  69.     ElseIf (BYTE003 == BYTE005) Then
  70.         Gosub LABEL004
  71.     ElseIf (BYTE004 == BYTE005) Then
  72.         Gosub LABEL004
  73.     Endif
  74.     BYTE006 = 1 + Random(44)
  75.     FGet 2, INTEGER003
  76.     FClose 2
  77.     WORD001 = Year(Date())
  78.     BYTE008 = Month(Date())
  79.     BYTE009 = Day(Date())
  80.     BYTE007 = Dow(Date())
  81.     Select Case (BYTE007)
  82.         Case 3
  83.             Goto LABEL005
  84.         Case 6
  85.             Goto LABEL005
  86.         Case Else
  87.             Goto LABEL006
  88.     End Select
  89.     :LABEL005
  90.     If (Time() > 70200) Goto LABEL013
  91.     :LABEL006
  92.     If (BYTE007 < 4) Then
  93.         STRING001 = " @X07WEDNESDAY "
  94.     Else
  95.         STRING001 = " SATURDAY "
  96.     Endif
  97.     :LABEL007
  98.     Select Case (BYTE007)
  99.         Case 3
  100.             Goto LABEL008
  101.         Case 6
  102.             Goto LABEL008
  103.         Case Else
  104.             BYTE007 = BYTE007 + 1
  105.             BYTE009 = BYTE009 + 1
  106.     End Select
  107.     Goto LABEL007
  108.     :LABEL008
  109.     If (WORD001 == 1996) Then
  110.         If (BYTE008 == 2) Then
  111.             If (BYTE009 == 29) Goto LABEL011
  112.             If (BYTE009 > 29) Then
  113.                 BYTE008 = BYTE008 + 1
  114.                 BYTE009 = BYTE009 - 29
  115.             Else
  116.             ElseIf (BYTE008 == 2) Then
  117.                 If (BYTE009 > 28) Then
  118.                     BYTE008 = BYTE008 + 1
  119.                     BYTE009 = BYTE009 - 28
  120.                 Else
  121.                 ElseIf (BYTE009 >= 31) Then
  122.                     If (BYTE008 == 4) Then
  123.                         Goto LABEL009
  124.                         Goto LABEL009
  125.                     Endif
  126.                     If (BYTE008 == 6) Then
  127.                         Goto LABEL009
  128.                         Goto LABEL009
  129.                     Endif
  130.                     If (BYTE008 == 9) Then
  131.                         Goto LABEL009
  132.                         Goto LABEL009
  133.                     Endif
  134.                     If (BYTE008 == 11) Then
  135.                         Goto LABEL009
  136.                         Goto LABEL009
  137.                     Endif
  138.                     Goto LABEL010
  139.                     :LABEL009
  140.                     BYTE008 = BYTE008 + 1
  141.                     If (BYTE008 == 13) WORD001 = WORD001 + 1
  142.                     If (BYTE008 == 13) BYTE008 = 1
  143.                     BYTE009 = BYTE009 - 30
  144.                     Goto LABEL011
  145.                     :LABEL010
  146.                     If (BYTE009 == 31) Goto LABEL011
  147.                     BYTE008 = BYTE008 + 1
  148.                     If (BYTE008 == 13) WORD001 = WORD001 + 1
  149.                     If (BYTE008 == 13) BYTE008 = 1
  150.                     BYTE009 = BYTE009 - 31
  151.                 Endif
  152.             Endif
  153.         Endif
  154.     Endif
  155.     :LABEL011
  156.     INTEGER001 = Crc32(0, STRING002)
  157.     INTEGER002 = Crc32(0, STRING003)
  158.     WORD001 = Right(WORD001, 2)
  159.     Cls
  160.     PrintLn ""
  161.     PrintLn ""
  162.     PrintLn "@X0F               @X0AThanks For Calling @X0E@FIRST@       @X0AHope You Get Lucky!!"
  163.     PrintLn ""
  164.     PrintLn "@X08                     POWERBALL PICK FROM LOWER LEVEL SOFTWARE   "
  165.     PrintLn "@X0F            @X1F┌──────────────────────────────────────────────────────┐"
  166.     PrintLn "@X0F            @X1F│                                                      │"
  167.     PrintLn "@X0F            @X1F│   @X7F @X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐▐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐ @X10▄  @X1F│"
  168.     PrintLn "@X0F            @X1F│   @X7F @X1B│ @X1FP @X10│@X1B│ @X1FO @X10│@X1B│ @X1FW @X10│@X1B│ @X1FE @X10│@X1B│ @X1FR @X10│@X70▐@X4E│ @X4FB @X40│@X4E│ @X4FA @X40│@X4E│ @X4FL @X40│@X4E│ @X4FL @X40│ @X10█  @X1F│"
  169.     PrintLn "@X0F            @X1F│   @X7F @X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘▐@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘ @X10█  @X1F│"
  170.     PrintLn "@X0F            @X1F│    @X10▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀  @X1F│"
  171.     PrintLn "@X0F            @X1F└──────────────────────────────────────────────────────┘"
  172.     If (INTEGER003 == Right(INTEGER001, 3) + Right(INTEGER002, 4)) Then
  173.         PrintLn "@X0D                      REGISTERED TO: @BOARDNAME@                         "
  174.     Else
  175.         PrintLn "@X8D         ASK YOUR SYSOP TO REGISTER POWERBALL PICK  @X03(ONLY 5 BUCKS MAN!)@X07"
  176.     Endif
  177.     PrintLn "@X0F             HERE ARE YOUR LUCKY NUMBERS FOR THE POWERBALL DRAWING"
  178.     PrintLn "@X0B@POS:24@ON@X8F>>@X0A@POS:31@", STRING001, "@X09@POS:44@", BYTE008, "@X08/@X09", BYTE009, "@X08/@X09", WORD001
  179.     PrintLn "@X0E@POS:18@", +BYTE001, "  ", +BYTE002, "  ", +BYTE003, "  ", +BYTE004, "  ", +BYTE005, "@X07  AND YOUR POWERBALL IS@X0C ", +BYTE006
  180.     PrintLn ""
  181.     PrintLn ""
  182.     PrintLn ""
  183.     If (INTEGER003 == Right(INTEGER001, 3) + Right(INTEGER002, 4)) Goto LABEL012
  184.     Wait
  185.     End
  186.     :LABEL012
  187.     FAppend 1, PPEPath() + String(BYTE008) + "-" + String(BYTE009) + "-" + String(WORD001), 2, 0
  188.     FPutLn 1, U_Name()
  189.     FPutLn 1, +BYTE001, "  ", +BYTE002, "  ", +BYTE003, "  ", +BYTE004, "  ", +BYTE005, "  ", +BYTE006
  190.     FClose 1
  191.     Wait
  192.     End
  193.     :LABEL013
  194.     If (BYTE007 == 3) Goto LABEL014
  195.     If (BYTE007 == 6) Goto LABEL015
  196.     :LABEL014
  197.     STRING001 = " SATURDAY"
  198.     BYTE009 = BYTE009 + 3
  199.     Goto LABEL008
  200.     :LABEL015
  201.     STRING001 = " WEDNESDAY"
  202.     BYTE009 = BYTE009 + 4
  203.     Goto LABEL008
  204.  
  205. ;------------------------------------------------------------------------------
  206. ;
  207. ; Usage report (before postprocessing)
  208. ;
  209. ; ■ Statements used :
  210. ;
  211. ;    2       End
  212. ;    1       Cls
  213. ;    2       Wait
  214. ;    64      Goto 
  215. ;    33      Let 
  216. ;    20      PrintLn 
  217. ;    36      If 
  218. ;    1       FOpen 
  219. ;    1       FAppend 
  220. ;    2       FClose 
  221. ;    3       FGet 
  222. ;    2       FPutLn 
  223. ;    10      Gosub 
  224. ;
  225. ;
  226. ; ■ Functions used :
  227. ;
  228. ;    12      +
  229. ;    25      +
  230. ;    4       -
  231. ;    31      ==
  232. ;    1       <
  233. ;    3       >
  234. ;    1       >=
  235. ;    26      !
  236. ;    5       Right()
  237. ;    6       Random()
  238. ;    4       Date()
  239. ;    1       Time()
  240. ;    1       U_Name()
  241. ;    1       Year()
  242. ;    1       Month()
  243. ;    1       Day()
  244. ;    1       Dow()
  245. ;    3       String()
  246. ;    2       PPEPath()
  247. ;    1       PPEName()
  248. ;    2       Crc32()
  249. ;
  250. ;------------------------------------------------------------------------------
  251. ;
  252. ; Analysis flags : No flag
  253. ;
  254. ;------------------------------------------------------------------------------
  255. ;
  256. ; Postprocessing report
  257. ;
  258. ;    0       For/Next
  259. ;    0       While/EndWhile
  260. ;    22      If/Then or If/Then/Else
  261. ;    2       Select Case
  262. ;
  263. ;------------------------------------------------------------------------------
  264. ;                 AEGiS Corp - Break the routines, code against the machines!
  265. ;------------------------------------------------------------------------------
  266.